home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 April / EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso / EARCD / util / misc / Ital25a.lha / Ital25a / Arexx / Esempi / Esempio.rexx < prev    next >
OS/2 REXX Batch file  |  1996-02-15  |  2KB  |  80 lines
  1. /*
  2.  *
  3.  *  Ital e Arexx
  4.  *  scritto da Arturo Ortino il 12/12/93
  5.  *  rev. Dicembre 1994 per Ital 2.0
  6.  *
  7. */
  8.  
  9. options results
  10.  
  11. /*
  12.  *  Dobbiamo controllare se Ital è stato già lanciato,
  13.  *  cercando una porta di nome 'ITAL' ...
  14.  *  Se Ital non è gia presente lo lanciamo
  15.  *  con .... address command "Work:Inglese/Varie/Ital NOREQ"
  16.  *  poi, aspettiamo fino a quando
  17.  *  Ital non è pronto per ricevere ordini
  18.  *  con .... address command "waitforport ITAL"
  19.  *  NOTA (1): Assumiamo che Ital si trovi nella directory
  20.  *          'Work:Inglese/Varie'
  21.  *  NOTA (2): Il comando 'waitforport' deve essere in una
  22.  *          delle directory di ricerca assegnate con il
  23.  *          comando 'path' (ovviamente).
  24. */
  25.  
  26.  
  27. if ~show('P','ITAL') then
  28.     DO
  29.     address command "Work:Inglese/Varie/Ital"
  30.     address command "waitforport ITAL"
  31.     END
  32.  
  33. address 'ITAL'        /* Contattiamo Ital */
  34.  
  35. 'CLEAR'            /* resettiamo eventuali precedenti settaggi */
  36.  
  37. 'Work:Docs/miofile'    /* Ordina a Ital di tradurre il
  38.              * file "miofile"; lo stesso
  39.              * verrà salvato nella directory di
  40.              * provenienza (Work:Docs) con il
  41.              * nome "miofile.TRA"
  42.              */
  43.  
  44. address command "more Work:Docs/miofile.TRA"
  45.             /* Adesso leggiamo, con "More", il file tradotto */
  46.  
  47. address 'ITAL'        /* ricontattiamo Ital */
  48.  
  49. 'df1:GamesDocs/*'    /* Ordina a Ital di tradurre tutti i
  50.              * file contenuti nella directory
  51.              * "GamesDocs" del dischetto in df1:
  52.              */
  53.  
  54. 'SAVEDIR=df0:'        /* Dice a Ital che d'ora in poi
  55.              * tutti i file tradotti dovranno essere
  56.              * salvati in df0:
  57.              */
  58.  
  59. 'df1:GamesDocs2/*'    /* Ordina a Ital di tradurre tutti i
  60.              * file contenuti nella directory
  61.              * "GamesDocs2" del dischetto in df1:
  62.              * NOTA: I file tradotti saranno
  63.              * adesso salvati in df0:  (vedi sopra)
  64.              */
  65.  
  66. 'CLEAR'            /* ripristina SAVEDIR ... */
  67.  
  68.  
  69. 'RAM:Provv/read.me'    /* Ordina a Ital di tradurre il file
  70.              * "read.me".
  71.              * NOTA: Il file tradotto verrà salvato
  72.              * nella stessa directory di provenienza
  73.              * (in questo caso in "RAM:Provv")
  74.              */
  75.  
  76. 'QUIT'            /* Abbiamo finito, Ciao Ital! */
  77.  
  78.  
  79. exit (0)
  80.